home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / STOF.INT < prev    next >
Text File  |  1989-06-02  |  348b  |  11 lines
  1. type
  2.   single    = array[0..3] of byte;
  3. function stof(B: single): real;
  4.    {convert 4 byte single to real}
  5. procedure ftos(PasReal: real; var B: single);
  6.    {convert real to 4 byte single}
  7. function stol(s: single): longint;
  8. procedure incs(var s: single; n: real);
  9. procedure ltos(l: longint; var B: single);
  10. procedure zeros(var B: single);
  11.